home *** CD-ROM | disk | FTP | other *** search
/ Publication 11 / Publication_11_19xx_-_de_Side_B.d64 / voodoo -> seq (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  16KB  |  18 lines
  1. 1 print"[147]":poke53280,1:poke53281,0:poke53272,29
  2. 2 def fn a(a)=a+64+64*(a<64anda>31)+32*(a<96anda>63)
  3. 10 input"name   ";n$:sys57812n$,8,1:poke780,0:sys65493:s$="4000":e$="477f"
  4. 11 input"start $";s$:input"ende  $";e$:forg=1tolen(s$)
  5. 12 h=asc(mid$(s$,g))-48:s=s*16+h+7*(h>9):next:e=0:forg=1tolen(e$)
  6. 13 h=asc(mid$(e$,g))-48:e=e*16+h+7*(h>9):next
  7. 14 print"textanfang : $"s$" /"s:print"textende   : $"e$" /"e
  8. 15 print"1.text lesen":print"2.konvertieren":print"3.beenden"
  9. 16 geta$:on-(a$="1")-2*(a$="2")-3*(a$="3")goto100,200,300:goto16
  10. 100 x=s
  11. 101 print"[147]":forg=0to959:poke1024+g,peek(x+g):next:poke198,0:geta$:wait198,1
  12. 102 ifx<e-960thenx=x+960:goto101
  13. 103 print"[147]":goto14
  14. 200 x=e-s:v=x/960:x=s:input"name  ";sn$:open2,8,2,"@:"+sn$+",s,w":forg=0tov
  15. 201 print"seite :"g+1"[145][145]":forq=0to959:a=peek(x+960*g+q):ifa>127thena=a and 127
  16. 202 print#2,chr$(fna(a));:nextq,g:close2:goto14
  17. 300 sys64378
  18.